home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1414.dms / var1414.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1993-02-25  |  38KB  |  1,045 lines

  1. '
  2. '
  3. '
  4. '
  5. '
  6. '
  7. Change Mouse 2
  8. TIMESYOUDONEIT=0
  9. LONGNESS=0
  10. RAT$=" "
  11. TIER=50
  12. Gosub ISCREEN
  13. S=3
  14. Dim FIL$(10)
  15. Screen Open 0,640,256,16,Hires
  16. Paper 0
  17. Cls 0
  18. FIL$(1)="TITLE          :"
  19. FIL$(2)="PUBLISHER      :"
  20. FIL$(3)="TIP/CHEAT/POKE :"
  21. S=3
  22. CHOOSE=1
  23. LAT=123
  24. Reserve Zone 10
  25. IND=1
  26. Dim NAME$(150,3)
  27. Dim PUB$(21)
  28. Global BA$,IND,TIER,REDD,FIL$(),RAT$,GM,S,LAT,CHOOSE,IND,LT,NAME$(),PUB$(),C$
  29. C$="ROBERT"
  30. '
  31. RAT$=" "
  32. REDD=1
  33. Curs Off 
  34. _DATASCREEN
  35. 'Gosub ENTERDATA 
  36. ''''''load a saved database???''''''''''Gosub STAR 
  37. Gosub NICEONE
  38. Gosub NOB
  39. Gosub UDATE
  40. Curs Off 
  41. '
  42. MAINLOOP:
  43. '
  44. '
  45. Curs Off 
  46. If Mouse Key and Mouse Zone=1 Then Wait 10 : Gosub DWN
  47. If Mouse Key and Mouse Zone=2 Then Gosub DWN : Gosub DWN
  48. If Mouse Key and Mouse Zone=3 Then Gosub UP : Gosub UP
  49. If Mouse Key and Mouse Zone=4 Then Wait 10 : Gosub UP
  50. If Mouse Key and Mouse Zone=5 Then Stop 
  51. If Mouse Key and Mouse Zone=6 Then Stop 
  52. If Mouse Key and Mouse Zone=7 Then Gosub ABOUT
  53. If Mouse Key and Mouse Zone=8 Then PRT : Gosub UDATE
  54. If Mouse Key and Mouse Zone=9 Then Gosub INDEX
  55. If Mouse Key and Mouse Zone=10 Then Gosub SEARCH
  56. If Inkey$="p" Then PRT
  57. 'If Inkey$="e" Then Gosub EIT
  58. 'If Inkey$="a" Then Gosub ADT
  59. Goto MAINLOOP
  60. '
  61. '
  62. SUB:
  63. If O=1 Then GM=12 : Y=225 : X=320 : SAD=2
  64. If O=0 Then GM=5 : Y=94 : X=320 : SAD=1
  65. If O=2 Then GM=8 : Y=225 : X=320 : SAD=3
  66. If O=3 Then GM=5 : Y=8 : X=320 : SAD=4
  67. Return 
  68. '
  69. '
  70. '
  71. GREM:
  72. WOOL:
  73. Inc A
  74. GM=A
  75. X=X-1
  76. If A=8 Then GM=6
  77. If A=9 Then GM=5 : A=5
  78. Bob 3,X,Y,GM
  79. If X=<2 Then RAT$=" " : TIER=0 : Bob Off 3
  80. Wait 1
  81. Return 
  82. '
  83. '
  84. '
  85. '
  86. GREMLIN:
  87. '
  88. '
  89. If X=100 Then Goto GLIB
  90. Inc A
  91. GM=A
  92. X=X-1
  93. If A=8 Then GM=6
  94. If A=9 Then GM=5 : A=5
  95. Bob 3,X,Y,GM
  96. If X=<1 Then Restore : RAT$=" " : TIER=0 : Bob Off 3
  97. Wait 1
  98. '
  99. Return 
  100. '
  101. '
  102. '
  103. GLIB:
  104. Read GM
  105. Bob 3,X,Y,GM+1
  106. If GM=12345 Then X=X-1
  107. Wait 4
  108. Return 
  109. Data 12,12,12,12
  110. Data 13,13,13,13
  111. Data 14,14,14,14
  112. Data 12,12,12,12
  113. Data 13,13,13,13
  114. Data 14,14,14,14
  115. Data 12,12,12,12
  116. Data 13,13,13,13
  117. Data 14,14,14,14
  118. Data 15,15,15,15
  119. Data 16,16,16,16
  120. Data 17,17,17,17
  121. Data 18,18,18,18
  122. Data 19,19,19,19
  123. Data 20,20,20,20
  124. Data 21,21,21,21
  125. Data 19,19,19,19
  126. Data 20,20,20,20
  127. Data 21,21,21,21
  128. Data 19,19,19,19
  129. Data 20,20,20,20
  130. Data 21,21,21,21
  131. Data 12345
  132. '
  133. '
  134. '
  135. '
  136. '
  137. '
  138. BOGEY:
  139. X=X-1
  140. Y=Y-1
  141. If GM=8 Then GM=9 : Goto ROBERTREDSHAW
  142. If GM=9 Then GM=8
  143. ROBERTREDSHAW:
  144. Bob 3,X,Y,GM
  145. If X=<0 or Y=<0 Then TIER=0 : RAT$=" " : Bob Off 3
  146. Wait 2
  147. Return 
  148. '
  149. '
  150. '
  151. '
  152. BOGS:
  153. If RABIS=0 Then If X=150 Then RABIS=1 : GM=10
  154. If RABIS=1 Then Goto TALLYHOE
  155. Inc A
  156. GM=A
  157. X=X-1
  158. If A=8 Then GM=6
  159. If A=9 Then GM=5 : A=5
  160. Bob 3,X,Y,GM
  161. If X=<1 Then Restore : TIMESYOUDONEIT=0 : RAT$=" " : TIER=0 : Bob Off 3
  162. Wait 1
  163. '
  164. '
  165. Return 
  166. '
  167. '
  168. TALLYHOE:
  169. If GM=10 Then Inc LONGNESS : If LONGNESS=15 Then GM=11
  170. If GM=11 Then GM=12 : Goto RREDSHAW
  171. If GM=12 Then GM=11 : Inc TIMESYOUDONEIT
  172. RREDSHAW:
  173. Bob 3,X,Y,GM
  174. Wait 4
  175. If TIMESYOUDONEIT=10 Then RABIS=0 : X=X-1
  176. Return 
  177. '
  178. '
  179. '
  180. '  
  181. '
  182. '  
  183. UP:
  184. Shoot 
  185. If CHOOSE<LAT Then CHOOSE=CHOOSE+1 : Gosub UDATE
  186. Return 
  187. '
  188. DWN:
  189. Shoot 
  190. Shared NAME$()
  191. If CHOOSE>1 Then Dec CHOOSE : Gosub UDATE
  192. Return 
  193. '''
  194. '
  195. '
  196. EIT:
  197. CWIND
  198. For LP=1 To 3
  199.    Clw 
  200.    A$=NAME$(CHOOSE,LP)+"            "
  201.    B$="                                                  "
  202.    Print FIL$(LP)
  203.    Cright : Cright 
  204.    Print A$
  205.    Cup 
  206.    If Len(A$)>45 Then Cup 
  207.    If Len(A$)>90 Then Cup 
  208.    If Len(A$)>135 Then Cup 
  209.    If Len(A$)>180 Then Cup 
  210.    Input B$
  211.    A=Len(A$)
  212.    B=Len(B$)
  213.    C=A-B
  214.    C$=Right$(A$,C)
  215.    D$=B$+C$
  216.    NAME$(CHOOSE,LP)=D$
  217.    'Print D$
  218.    '   Locate 1,5 : Cline : Print FIL$(LP), : Print NAME$(CHOOSE,LP) : Locate 1,5 : Print FIL$(LP), : Input ":";NAME$(CHOOSE,LP) : Locate 1,5 : Cline 
  219. Next LP
  220. Cup : Cline 
  221. Gosub NOB
  222. Gosub UDATE
  223. Return 
  224. ADT:
  225. CWIND
  226. LAT=LAT+1
  227. CHOOSE=LAT
  228. For LP=1 To S
  229.    Locate 1,5 : Cline : Print "field:";LP;"(";FIL$(LP);")", : Input ":";NAME$(CHOOSE,LP) : Locate 1,5 : Cline 
  230. Next LP
  231. Gosub NOB
  232. Gosub UDATE
  233. Return 
  234. '
  235. UDATE:
  236. Clw 
  237. Pen 2
  238. Locate 1,1 : Print "1. file number      :", : Print CHOOSE
  239. 'Locate 1,2 : Print "2. amount of files  :", : Print LAT 
  240. 'Locate 1,3 : Print "3. fields in base   :", : Print S 
  241. Cdown 
  242. Cdown 
  243. 'Locate 1,20 : Print "file:";CHOOSE
  244. For LT=1 To S
  245.    Pen 5
  246.    Print FIL$(LT),
  247.    Pen 2
  248.    Print NAME$(CHOOSE,LT)
  249. Next LT
  250. Return 
  251. '
  252. '
  253. '
  254. ENTERDATA:
  255. For CHOOSE=1 To 20
  256.    Input "title:";NAME$(CHOOSE)
  257.    Input "publisher:";PUB$(CHOOSE)
  258. Next 
  259. Cdown 
  260. Centre "all banks full!!"
  261. 'Sort NAME$(0) 
  262. Gosub NOB
  263. PUB$=NAME$+C$
  264. Centre "all data sorted!"
  265. Cdown 
  266. Centre "<press a key>" : Wait Key : Clw 
  267. CHOOSE=4
  268. Return 
  269. '
  270. Procedure _DATASCREEN
  271.    Get Sprite Palette 
  272.    Bob 1,410,3,2
  273.    Bob 2,410,171,3
  274.    Paper 0 : Cls 0
  275.    Ink 2
  276.    ' Print "databank" 
  277.    ' Zoom 0,0,0,84,8 To 0,60,10,319,50
  278.    Locate 0,0 : Cline 
  279.    Ink 9
  280.    Bar 7,40 To 618,162
  281.    Ink 2
  282.    Box 7,40 To 618,162
  283.    Paper 4
  284.    Wind Open 1,20,45,75,14
  285.    '
  286.    'For NOISE=1 To 500  
  287.    'Print Chr$(Rnd(25)+65); 
  288.    'Next NOISE
  289.    '
  290.    '
  291.    '
  292.    '
  293.    Clw 
  294.    Ink 0
  295.    Bar 15,170 To 40,190
  296.    Bar 105,170 To 130,190
  297.    Bar 195,170 To 220,190
  298.    Bar 285,170 To 310,190
  299.    '''  Bar 375,170 To 400,190
  300.    '''  Bar 465,170 To 490,190
  301.    Ink 2
  302.    Box 15,170 To 40,190
  303.    Box 105,170 To 130,190
  304.    Box 195,170 To 220,190
  305.    Box 285,170 To 310,190
  306.    '''  Box 375,170 To 400,190
  307.    '''  Box 465,170 To 490,190
  308.    Ink 2,9 : Text 16,183,"<"
  309.    Text 106,183,"<<"
  310.    Text 196,183,">>"
  311.    Text 286,183,">"
  312.    ''' Text 376,183,"save"  
  313.    ''' Text 466,183,"load"
  314.    Set Zone 1,15,170 To 40,190
  315.    Set Zone 2,105,170 To 130,190
  316.    Set Zone 3,195,170 To 220,190
  317.    Set Zone 4,285,170 To 310,190
  318.    ''' Set Zone 5,375,170 To 400,190
  319.    ''' Set Zone 6,465,170 To 590,190  
  320.    '
  321.    '
  322.    '
  323.    '
  324.    '
  325.    Ink 0
  326.    Bar 15,10 To 40,30
  327.    Bar 105,10 To 130,30
  328.    Bar 195,10 To 220,30
  329.    Bar 285,10 To 310,30
  330.    Ink 2
  331.    Box 15,10 To 40,30
  332.    Box 105,10 To 130,30
  333.    Box 195,10 To 220,30
  334.    Box 285,10 To 310,30
  335.    Ink 2,9 : Text 16,23,"ABOUT"
  336.    Text 106,23,"PRINT"
  337.    Text 196,23,"INDEX"
  338.    Text 286,23,"SEARCH"
  339.    Set Zone 7,15,10 To 40,30
  340.    Set Zone 8,105,10 To 130,30
  341.    Set Zone 9,195,10 To 220,30
  342.    Set Zone 10,285,10 To 310,30
  343.    '' 
  344.    '
  345.    '
  346.    '
  347.    Cdown 
  348. End Proc
  349. '
  350. NOB:
  351. Pen 3
  352. Cdown : Cdown : Cdown : Cdown 
  353. Centre "* Processing Data Please Wait! *"
  354. Curs Off 
  355. Pen 2
  356. REGGY=122
  357. LAT=LAT-1
  358. For T=0 To LAT
  359.    Locate 2,2
  360.    Print REGGY-T;"    "
  361.    For N=0 To LAT
  362.       If NAME$(N+1,IND)<NAME$(N,IND) Then Gosub BIN
  363.    Next N
  364. Next T
  365. LAT=LAT+1
  366. Return 
  367. BIN:
  368. For Y=1 To S
  369.    B$=NAME$(N,Y)
  370.    NAME$(N,Y)=NAME$(N+1,Y)
  371.    NAME$(N+1,Y)=B$
  372. Next Y
  373. Return 
  374. Procedure FIL
  375.    Input "how many fields?";S
  376.    Cup : Cline 
  377.    For A=1 To S
  378.       Print "field (";A;") :", : Input FIL$(A)
  379.       Cup : Cline 
  380.       Cdown 
  381.    Next 
  382.    CWIND
  383. End Proc
  384. Procedure CWIND
  385.    Clw 
  386. End Proc
  387. '
  388. '
  389. '
  390. '
  391. '
  392. '  
  393. SEARCH:
  394. Clw 
  395. Pen 2
  396. WHAT:
  397. Locate 0,1 : Print 
  398. Centre "SEARCH"
  399. Locate 0,3
  400. Centre "PLEASE PUT CAPS LOCK ON IF IT ALREADY IS'NT"
  401. Pen 3
  402. Locate 0,6
  403. Centre " SEARCH FOR A PUBLISHER OR A GAME (P-G) ?"
  404. Pen 2
  405. Locate 1,12
  406. Centre "PRESS MOUSE KEYS TO EXIT"
  407. GIG:
  408. '
  409. Do 
  410.    If Inkey$="P" Then BA$="P" : Goto EGGHEAD
  411.    If Inkey$="G" Then BA$="G" : Goto EGGHEAD
  412.    If Mouse Key=1 or Mouse Key=2 Then Gosub UDATE : Return 
  413. Loop 
  414. '
  415. EGGHEAD:
  416. Bell 
  417. If BA$="P" Then FD=2 : Gosub PUB : Goto NICEONEGRAND
  418. If BA$="G" Then FD=1 : Gosub TIT : Goto NICEONEGRAND
  419. If BA$<>"" Then Clw : Goto WHAT
  420. Goto GIG
  421. '
  422. NICEONEGRAND:
  423. Cup : Cline 
  424. Cdown : Cdown : Cdown 
  425. For A=1 To LAT
  426.    If NAME$(A,FD)=SEA$ Then CHOOSE=A : Centre "OPERATION FINISHED-PRESS A KEY" : Goto TAG
  427. Next A
  428. '
  429. For A=1 To LAT
  430.    BEAST$=Left$(NAME$(A,FD),5)
  431.    BEASTIE$=Left$(SEA$,5)
  432.    If BEAST$=BEASTIE$ Then CHOOSE=A : Centre "OPERATION FINISHED-PRESS A KEY" : Goto TAG
  433. Next A
  434. '
  435. For A=1 To LAT
  436.    BEAST$=Left$(NAME$(A,FD),1)
  437.    BEASTIE$=Left$(SEA$,1)
  438.    If BEAST$=BEASTIE$ Then CHOOSE=A : Centre "OPERATION FINISHED-PRESS A KEY" : Goto TAG
  439. Next A
  440. '
  441. '
  442. Centre "OPERATION FAILED-PRESS A KEY"
  443. Gosub UDATE
  444. Return 
  445. '
  446. PUB:
  447. Pen 2
  448. Locate 5,9
  449. Input " NAME OF PUBLISHER:";SEA$
  450. Return 
  451. '  
  452. TIT:
  453. Pen 2
  454. Locate 5,9
  455. Input " NAME OF GAME:";SEA$
  456. Return 
  457. '
  458. '
  459. '
  460. '
  461. '
  462. '
  463. TAG:
  464. Wait Key : CWIND : Gosub UDATE
  465. Return 
  466. '
  467. '
  468. '
  469. '
  470. Procedure PRT
  471.    SKALLY:
  472.    Clw 
  473.    Locate 2,2
  474.    Centre "Printing files"
  475.    Locate 2,10
  476.    Centre "Type ~E~ to exit"
  477.    Locate 2,4
  478.    Input "Print All Files? (Y/N/E) :";PR$
  479.    If PR$="N" Then Goto BOLL
  480.    If PR$="E" Then Goto E
  481.    If PR$<>"Y" Then Goto SKALLY
  482.    For T=1 To LAT
  483.       For D=1 To S
  484.          Lprint FIL$(D);"  :  ",
  485.          Lprint NAME$(T,D)
  486.       Next D
  487.       Lprint " "
  488.    Next T
  489.    Goto E
  490.    BOLL:
  491.    Locate 2,6
  492.    Print "* Printing Current File *"
  493.    For D=1 To S
  494.       Lprint FIL$(D);"  :  ",
  495.       Lprint NAME$(CHOOSE,D)
  496.    Next D
  497.    E:
  498.    Wait 25
  499.    Bell 
  500.    CWIND
  501. End Proc
  502. '
  503. '
  504. '
  505. '
  506. FEATURES:
  507. '
  508. '
  509. '   Input "name of file:";A$ : Cup : Cline 
  510. F$="br"
  511. Open In 1,F$
  512. S=3
  513. For A=1 To 5
  514.    For C=1 To S
  515.       Input #1,NAME$(A,C)
  516.    Next C
  517. Next A
  518. Input #1,S
  519. Input #1,CHOOSE
  520. Input #1,LAT
  521. For T=0 To 3
  522.    Input #1,FIL$(T)
  523. Next T
  524. Cdown 
  525. CWIND
  526. Close 1
  527. Gosub UDATE
  528. '  
  529. S=3
  530. '
  531. Return 
  532. '
  533. '
  534. '
  535. ISCREEN:
  536. Screen Open 1,320,256,32,Lowres
  537. Flash Off 
  538. Curs Off 
  539. Unpack 7 To 0
  540. Get Sprite Palette 
  541. Flash Off 
  542. Double Buffer 
  543. DEF=70000
  544. Do 
  545.    TIER=TIER+1
  546.    If TIER<DEF Then Goto FAST
  547.    If RAT$=" " Then If TIER=DEF Then GREMLIN=2
  548.    If RAT$=" " Then If GREMLIN=2 Then GREMLIN=0 : RAT$="active" : O=Rnd(3)
  549.    If RAT$="active" Then Gosub SUB : RAT$="nothing"
  550.    If RAT$="nothing" Then On SAD Gosub GREM,GREMLIN,BOGEY,BOGS
  551.    FAST:
  552.    If Inkey$<>"" Then Goto MARKER
  553.    If Mouse Key=1 or Mouse Key=2 or Mouse Key=3 Then Goto MARKER
  554. Loop 
  555. MARKER:
  556. Paper 0
  557. Fade 5 : Wait 100
  558. Cls 0
  559. Return 
  560. '
  561. '
  562. '
  563. '
  564. ABOUT:
  565. Clw 
  566. Cdown 
  567. Pen 3
  568. Centre " POKE MANIA "
  569. Cdown 
  570. Cdown 
  571. Pen 2
  572. Centre "By : Robert Redshaw"
  573. Cdown 
  574. Centre "If you have found poke mania usefull then please"
  575. Cdown 
  576. Centre "send a donation to :- R.Redshaw,82 St Johns Ave,"
  577. Cdown 
  578. Centre "Bridlington,East Yorkshire,YO16 4NL.Cheques/P.O's"
  579. Cdown 
  580. Centre "payable to ~Robert Redshaw~.Any Patrons will receive"
  581. Cdown 
  582. Centre "news of updates with 100s of new cheats+hints.Thanks!"
  583. Cdown 
  584. Centre "AMOS USERS-To load ~Poke Mania~ into AMOS just insert this disk and"
  585. Cdown 
  586. Centre "then load the file ~AUTOEXEC~.Again if found usefull conributions "
  587. Cdown 
  588. Centre "gratefully received."
  589. Pen 3
  590. Cdown : Cdown 
  591. Centre "PRESS A MOUSE BUTTON "
  592. While Mouse Key=0
  593. Wend 
  594. Pen 15
  595. Gosub UDATE
  596. Return 
  597. '
  598. '
  599. '
  600. '
  601. INDEX:
  602. YOB:
  603. Clw 
  604. Pen 2
  605. Locate 0,2
  606. Centre "Index will sort the files into the publisher or the title"
  607. Locate 0,4
  608. Centre "Please enter ~G~ or ~P~(Game Title or Publisher) "
  609. Locate 0,8
  610. Pen 3
  611. Centre "WARNING!! - This will take approx 1 minute to sort"
  612. Locate 0,10
  613. Pen 2
  614. Centre "Press mousekey to exit & cancel"
  615. Locate 0,12
  616. Pen 3
  617. Centre "TYPE IN CAPITALS!!"
  618. Clear Key 
  619. Cup : Cup : Cup : Cup 
  620. '
  621. 'BULL: 
  622. Do 
  623.    If Inkey$="P" Then Goto PELADA
  624.    If Inkey$="G" Then Goto UMBRO
  625.    If Mouse Key=1 or Mouse Key=2 Then Gosub UDATE : Return 
  626. Loop 
  627. Gosub UDATE
  628. Return 
  629. '
  630. PELADA:
  631. Bell 
  632. If REDD=1 Then IND=2 : Boom : Clw : Locate 2,2 : Centre "Resorting Files Into Publishers" : Gosub NOB : Gosub UDATE : Return 
  633. If REDD=2 Then Locate 2,6 : Centre "Already Sorted Into Publishers" : Wait 45
  634. Goto YOB
  635. '
  636. UMBRO:
  637. Bell 
  638. If REDD=2 Then IND=1 : Boom : Clw : Locate 2,2 : Centre "Resorting Files Into Game Titles" : Gosub NOB : Gosub UDATE : Return 
  639. If REDD=1 Then Locate 2,6 : Centre "Already Sorted Into Game Titles" : Wait 45
  640. Goto YOB
  641. '
  642. NICEONE:
  643. NAME$(1,1)="FLASH BACK "
  644. NAME$(1,2)="US GOLD"
  645. NAME$(1,3)="CODES:--    LEVEL 2:TOIT    LEVEL 3:ZAPP    level 4:LYNX"
  646. NAME$(2,1)="SLEEPWALKER"
  647. NAME$(2,2)="OCEAN"
  648. S$="ON THE TITLE SCREEN TYPE ~DINGADINGDANGMYDANGALONGLINGLONG~ WITH NO SPACES AND LEE AND RALPHS NOSE WILL TURN BRIGHT GREEN.NOW START THE GAME AND PRESS ONE OF THE FOLLOWING:-~RETURN~ TO SKIP LEVELS.~M~ FOR A MAP OF THE LEVEL.~TAB~ TO TOP UP "
  649. D$="LEES SLEEP BAR-GET NINE ATTEMPTS-LIGHT UP THE WORD COMIC"
  650. NAME$(2,3)=S$+D$
  651. NAME$(3,1)="THE ADDAMS FAMILY"
  652. NAME$(3,2)="THE HIT SQUAD"
  653. NAME$(3,3)="CODES:LEVEL 2:91R18--LEVEL 3:R1R1G--LEVEL 4:R99K&--LEVEL 5:V919b--LEVEL 6:VGR12--LEVEL 7:BGKKX--LEVEL 8:BLJ12 "
  654. NAME$(4,1)="BART SIMPSON AND THE SPACE MUTANTS"
  655. NAME$(4,2)="OCEAN"
  656. NAME$(4,3)="TO SKIP A LEVEL TYPE ~SHEEP IN A GROUP WEARING HATS~ DURING PLAY.TRY TYPING ~EAT MY SHORTS~ AND ~COWABUNGA~ ON THE TITLE SCREEN AS WELL."
  657. NAME$(5,1)="TERMINATOR 2"
  658. NAME$(5,2)="THE HIT SQUAD"
  659. NAME$(5,3)="AFTER PAUSING THE GAME PRESS EACH OF THE FUNCTION KEYS IN TURN.PRESS FIRE TO RESUME PLAY AND YOU'LL FIND THE ESCAPE KEY ADVANCES LEVELS!"
  660. NAME$(6,1)="XENON 2"
  661. NAME$(6,2)="VIRGIN"
  662. NAME$(6,3)="TO SKIP LEVELS PAUSE THE GAME AND TYPE ~RUSSIAN AIR~ .SWITCH OFF PAUSE AND PRESS N TO ADVANCE THE LEVELS."
  663. NAME$(7,1)="PITFIGHTER"
  664. NAME$(7,2)="THE HIT SQUAD"
  665. NAME$(7,3)="TYPE ~LOBSTERS~ DURING PLAY.NOW IF YOU PRESS A NUMBERED KEY YOU WILL GO TO THAT LEVEL.PRESSING ~C~ WILL SEND YOU TO THE LAST CHAMPIONSHIP LEVEL,~G~ WILL SEND YOU TO THE GRUDGE MATCH AND ~L~ WILL ENTER YOU FOR THE ELIMINATION MATCH "
  666. NAME$(8,1)="JAGUAR XJ220"
  667. NAME$(8,2)="CORE DESIGN"
  668. NAME$(8,3)="TO DO A 2 MINUTE LAP IN 30 SECONDS GO TO THE MODE PART OF THE MUSIC SECTION AND HIT THE LEFT ARROW KEY ON THE SCAN."
  669. NAME$(8,1)="MCDONALDLAND"
  670. NAME$(8,2)="VIRGIN"
  671. NAME$(8,3)="TIP:WHEN YOU GET TO THE BONUS ROOM,IF YOU FALL DOWN TO THE EXIT,THEN PRESS FIRE,IT WILL OPEN.WHILE ITS OPEN,PRESS P,AND YOU SHOULD BE GIVEN ANOTHER GO AT THE BONUS ROOM."
  672. NAME$(9,1)="WWF EUROPEAN RAMPAGE TOUR"
  673. NAME$(9,2)="OCEAN"
  674. NAME$(9,3)="PRESS THE F10 KEY 10 TIMES IN THE GAME,AND YOUR OPPONENT SHOULD STAND STILL."
  675. NAME$(10,1)="SENSIBLE SOCCER "
  676. NAME$(10,2)="RENEGADE"
  677. NAME$(10,3)="TO RECREATE THE 1966 WORLD CUP FINAL BETWEEN ENGLAND AND WEST GERMANY,SIMPLY LOAD UP THE CUSTOM TEAMS,SELECT A FRIENDLY <MATCH AND CHOOSE THE TWO TEAMS.THE GAME WHEN STARTED WILL BE AS NORMAL BUT IN GLORIOUS BLACK AND WHITE"
  678. NAME$(11,1)="ELF "
  679. NAME$(11,2)="OCEAN"
  680. NAME$(11,3)="TYPE ~CHOROPOO~ AT ANY OINT IN THE GAME ME AND YOU'LL BE GIVEN 99 PETS."
  681. NAME$(12,1)="DRAGON SPIRIT"
  682. NAME$(12,2)="RESPRAY"
  683. NAME$(12,3)="WHILE PLAYING THE GAME,PAUSE AND TYPE ~DRAGONHEAD~ AND THEN PRESS F10.YOU CAN NOW SKIP LEVELS BY PRESSING THE CORRESPONDING LEVEL NUMBER"
  684. NAME$(13,1)="CARRIER COMMAND"
  685. NAME$(13,2)="MIRROR IMAGE"
  686. NAME$(13,3)="FOR IMMUNITY PAUSE THE GAME AND TYPE ~GROW OLD WITH ME~ - YOU CAN NOW TOGGLE THE CHEAT WITH THE ~+~ AND ~-~ KEYS."
  687. NAME$(14,1)="BATTLE SQUADRON"
  688. NAME$(14,2)="ELECTRONIC ZOO"
  689. NAME$(14,3)="TYPE IN ~CASTOR~ FOR INVINCIBILITY - F6 TO F10 CHOOSE YOUR WEAPON AND F1 TO F5 WILL CHOOSE YOUR POWER."
  690. NAME$(15,1)="DRAGON BREED"
  691. NAME$(15,2)="ACTIVISION"
  692. NAME$(15,3)="PAUSE THE GAME AND TYPE ~IREM~ IF YOU'D LIKE INFINITE LIVES.YOU WILL ALSO BE ABLE TO SELECT A LEVEL WITH THE ~N~ KEY."
  693. NAME$(16,1)="ATOMIX"
  694. NAME$(16,2)="?"
  695. NAME$(16,3)="IF YOU FIND YOU KEEP RUNNING OUT OF TIME,SIMPLY TYPE ~TIME~ WHEN THE GAME STARTS."
  696. NAME$(17,1)="ATOMIC ROBOKID "
  697. NAME$(17,2)="ACTIVISION"
  698. NAME$(17,3)="TYPE ~TUESDAY14TH~ ON THE TITLE SCREEN FOR A MENU WITHINVINCIBILITY AND A WHOLE HOST OF GOODIES."
  699. NAME$(18,1)="ARCHIPELAGOS"
  700. NAME$(18,2)="PRISM"
  701. NAME$(18,3)="AT THE STARTING LEVEL CHOOSE 8421 AND PRESS ENTER TWICE TO SELECT ANY LEVEL FROM 1 TO 9999."
  702. NAME$(19,1)="CAR-VUP"
  703. NAME$(19,2)="CORE DESIGN"
  704. A$="ENTER SOME THESE CODES ON THE HIGH SCORE TABLE FOR SOME INTRESTING RESULTS-PUSSYCAT(GIVES 9 LIVES) BUMPER(GIVES YOU A BUMPER AT THE START OF ENTRY LEVEL) ARNIECAR(100,000 POINTS) WOAARRGGH(GIVES A SPEED TURN) WHOOPSIE(START ON THE PREHI"
  705. C$="STORIC LEVEL - ALSO IF YOU ENTER ~R.J TOONE WILL~ YOU'LL HAVE INFINITE LIVES."
  706. NAME$(19,3)=A$+C$
  707. NAME$(20,1)="ESWAT"
  708. NAME$(20,2)="US GOLD"
  709. NAME$(20,3)="FOR INFINITE LIVES,PAUSE THE GAME AND TYPE ~JUSTIFIED ANCIENTS OF MU MU~."
  710. NAME$(21,1)="F-29 RETALIATOR"
  711. NAME$(21,2)="OCEAN"
  712. NAME$(21,3)="TO FLY ANY MISSION WITH INFINITE WEAPONS,ENTER YOUR NAME AS CIARAN AND PRESS ENTER."
  713. NAME$(22,1)="FALCON"
  714. NAME$(22,2)="ACTION 16"
  715. NAME$(22,3)="IF YOU HOLD ~ X,CRTL AND SHIFT ~ YOU WILL BE ABLE TO RE-ARM IN FLIGHT. "
  716. NAME$(23,1)="FULL CONTACT"
  717. NAME$(23,2)="?"
  718. NAME$(23,3)="WHILE PLAYING TYPE ~QAZWXEDCRFVTGBYHNUJM~.WHILE YOU'RE TYPING THIS YOUR OPPONENT WILL KEEL OVER AND DIE."
  719. NAME$(24,1)="GHOULS 'N' GHOSTS"
  720. NAME$(24,2)="KIXX"
  721. NAME$(24,3)="TYPE ~KAREN BROADHURST~ WHILE PLAYING FOR INVINCIBILITY."
  722. NAME$(25,1)="GODS"
  723. NAME$(25,2)="RENEGADE"
  724. NAME$(25,3)="SELECT THE PASSWORD OPTION SCREEN AND TYPE IN ~SORCERY~ - YOU'LL NOW BEGIN WITH INFINITE ENERGY."
  725. NAME$(26,1)="HUDSON HAWK"
  726. NAME$(26,2)="THE HIT SQUAD"
  727. NAME$(26,3)="ON THE TITLE SCREEN TYPE ~SCIENCEFICTION~,THEN BY PRESSING THE DEL KEY YOU CAN SKIP LEVELS.YOU'LL ALSO HAVE INFINITE LIVES."
  728. NAME$(27,1)="KICK OFF 2"
  729. NAME$(27,2)="ANCO"
  730. A$="IF YOU WOULD LIKE TO CHEAT A LITTLE,RUN YOUR FINGERS ALONG THE FUNCTION KEYS WHILE PLAYING AND S12 AND S14 WILL APPEAR IN THE CORNER.YOU SHOULD NOW BE ABLE TO SUBSITUTE THE OPPOSITIONS GOALIE.THIS CAN BE DONE TWICE-BY THEN THE GOALIE"
  731. C$=" WILL BE CRAP"
  732. NAME$(27,3)=A$+C$
  733. NAME$(28,1)="KID GLOVES"
  734. NAME$(28,2)="MILLENNIUM"
  735. NAME$(28,3)="PAUSE THE GAME AND TYPE ~RHIANNON~.PRESSING F8 GIVES YOU LOADS OF CASH,F6 TAKES YOU TO THE SHOP AND F9 TOGGLES THE INVULNERABILITY."
  736. NAME$(29,1)="KLAX"
  737. NAME$(29,2)="RESPRAY"
  738. NAME$(29,3)="FOR AN EASY AND SIMPLE CHEAT PRESS 4 AND YOU WILL GO STRIGHT TO THE LAST LEVEL."
  739. NAME$(30,1)="LOGICAL"
  740. NAME$(30,2)="RAINBOW ARTS"
  741. NAME$(30,3)="TYPE IN ~THE FINAL CUT~ FOR THE CONSTRUCTION KIT"
  742. NAME$(31,1)="LOTUS ESPRIT TURBO CHALLENGE"
  743. NAME$(31,2)="GBH GOLD"
  744. NAME$(31,3)="USE THE NAMES ~MONSTER~ AND ~SEVENTEEN~ FOR A BUMPY RIDE.OR USE ~FIELDS OF FIRE~ AND ~IN A BIG COUNTRY~ AND QUALIFY AUTOMATICALLY."
  745. NAME$(32,1)="MAGIC LAND DIZZY"
  746. NAME$(32,2)="CODEMASTERS"
  747. NAME$(32,3)="PAUSE THE GAME ANYWHERE IN THE GAME AND TYPE ~DIAMONDS AND PEARLS~(WITH THE SPACES) AND YOU'LL NOTICE THAT WHEN YOU UNPAUSE THE GAME YOU WILL HAVE INFINITE LIVES."
  748. NAME$(33,1)="MONTY PYTHONS FLYING CIRCUS"
  749. NAME$(33,2)="VIRGIN MASTERTRONIC"
  750. NAME$(33,3)="TO GET A HIDDEN OPTIONS SCREEN,TYPE ~SEMPRINI~ ON THE HIGH SCORE TABLE.ALSO TRY POOKY AGAIN"
  751. NAME$(34,1)="NAVY SEALS "
  752. NAME$(34,2)="OCEAN"
  753. NAME$(34,3)="TYPE ~PSBOYS~ ON THE HIGH SCORE TABLE AND THEN PRESS THE ~ESC~ KEY TO SKIP LEVELS"
  754. NAME$(35,1)="NEBULUS"
  755. NAME$(35,2)="HEWSON"
  756. NAME$(35,3)="ON THE TITLE SCREEN TYPE ~HELLOIAMJMP~ AND YOU SHALL BE BLESSED WITH INFINITE LIVES.PRESSING F1-F8 WILL ENABLE YOU TO SELECT ANY TOWER ON WHICH TO START."
  757. NAME$(36,1)="NEW ZEALAND STORY"
  758. NAME$(36,2)="THE HIT SQUAD"
  759. NAME$(36,3)="ON THE TITLE SCREEN PRESS THE DEL KEY,M AND TYPE IN ~FLUFFYKIWIS~.PRESSING DEL WILL ENABLE YOU TO SKIP LEVELS.YOU WILL ALSO HAVE INFINITE LIVES."
  760. NAME$(37,1)="NIGHTBREED"
  761. NAME$(37,2)="OCEAN"
  762. NAME$(37,3)="FOR INFINITE LIVES TYPE ~RISEN FROM THE DEAD~."
  763. NAME$(38,1)="NINJA WARRIORS"
  764. NAME$(38,2)="VIRGIN"
  765. NAME$(38,3)="FOR INFINITE LIVES PRESS CAPS LOCK AND TYPE ~CHEDDAR~,THEN TURN CAPS LOCK OFF.REPLACE THE CODE WITH SOME OF THESE FOR VARYING RESULTS-~THE TERMINATOR~-~MONTY PYTHON~-~SKIPPY~-~A SMALL STEP FOR MAN~-~STEVE AUSTIN~-~KYLIE~ ."
  766. NAME$(39,1)="PANG"
  767. NAME$(39,2)="THE HIT SQUAD"
  768. NAME$(39,3)="WHILE YOU ARE ON THE MAP SCREEN QUICKLY TYPE-~WHATA NICE CHEAT~.IF YOU'VE DONE THIS PROPERLY THE SCREEN WILL TURN PURPLE AND YOU'LL BE ABLE TO SELECT ANY LEVEL."
  769. NAME$(40,1)="PARASOL STARS"
  770. NAME$(40,2)="OCEAN"
  771. A$="TYPE ~CYNIX~ WHILE PLAYING THE GAME AND USE THE FOLLOWING KEYS:M-GETS ALL 3 STARS,G-KILLS ALL BAD GUYS ON THE SCREEN,C-GIVES YOU AN EXTRA CREDIT,X-SKIPS TO EXTRA LEVEL,T-ENDS THE STAGE,1-7-SKIP THESE STAGES,F1-F10-SKIP THESE LEVELS,"
  772. C$="B-SKIPS TO BONUS SCREEN.ALSO TRY TYPING ~WHERE ARE MY CREDITS~FOR INFINITE CREDITS."
  773. NAME$(40,3)=A$+C$
  774. NAME$(41,1)="PREDATOR 2"
  775. NAME$(41,2)="IMAGEWORKS"
  776. NAME$(41,3)="PAUSE THE GAME AND TYPE ~YOUR ONE UGLY MOTHER~ AND UNPAUSE FOR INFINITE LIVES.(IF THAT FAILS TRY REPLACING ~YOUR~ WITH ~YOURE~)."
  777. NAME$(42,1)="PRINCE OF PERSIA"
  778. NAME$(42,2)="THE HIT SQUAD"
  779. NAME$(42,3)="YOU CAN SKIP LEVELS BY PRESSING CAPS LOCK THEN PRESSING ~L~(THIS ONLY WORKS ON LEVELS 1-4 THOUGH!)"
  780. NAME$(43,1)="R-TYPE"
  781. NAME$(43,2)="ACTIVISION"
  782. NAME$(43,3)="GET A HIGH SCORE AND ENTER YOUR NAME AS~SUMITA~ FOR INFINITE LIVES."
  783. NAME$(44,1)="RAILROAD TYCOON"
  784. NAME$(44,2)="MICROPROSE"
  785. NAME$(44,3)="BY PRESSING THE SHIFT KEY AND $ YOU WILL BE ABLE TO GAIN SOME MONEY."
  786. NAME$(45,1)="RAINBOW ISLANDS"
  787. NAME$(45,2)="OCEAN"
  788. A$="TYPE IN THESE CODES ON THE OPENING SCREEN(THE ONE WITH THE FLASHING RAINBOW),BUT BE QUICK.BLRBJSBJ-GIVES YOU THE RED SHOES PERMANENTLY.RJSBJSBR-GIVES YOU PERMANENT DOUBLE RAINBOWS.SSSLLRR-GIVES YOU FAST RAINBOWS PERMANENTLY.LBSJRLJL-"
  789. C$="CONTINUES ON ALL ROUNDS"
  790. NAME$(45,3)=A$+C$
  791. NAME$(46,1)="RICK DANGEROUS"
  792. NAME$(46,2)="KIXX"
  793. NAME$(46,3)="ENTER ~POOKY~ ON THE HIGH SCORE TABLE AND YOU WILL BE ABLE TO SELECT THE LEVEL YOU PREVIOUSLEY REACHED IF YOU ALSO ENTER POOKY IN RD 2 YOU CAN CHOOSE BETWEEN EITHER A FULL LENGH OR SHORTER VERSION OF THE GAME."
  794. NAME$(47,1)="ROBOCOD"
  795. NAME$(47,2)="MILLENNIUM"
  796. NAME$(47,3)="TYPE IN ~LITTLE M~AND BY PRESSING A NUMBER FROM 1-50 YOU WILL BE TRANSPORTED TO VARIOUS PARTS OF THE GAME."
  797. NAME$(48,1)="ROBOBCOP 2"
  798. NAME$(48,2)="OCEAN"
  799. NAME$(48,3)="TO GET RID OF THOSE PESKY CRIMINALS,TYPE ~SERIALINTERFACE~ ON THE TITLE SCREEN.F9 WILL RESTORE YOUR ENERGY AND F10 WILL SKIP YOU TO THE NEXT LEVEL."
  800. NAME$(49,1)="RODLAND"
  801. NAME$(49,2)="STORM"
  802. NAME$(49,3)="START THE GAME THEN PAUSE IT,PRESS HELP FIVE TIMES AND UNPAUSE.YOUR ENERGY METER WILL STILL TICK DOWN BUT YOU'LL BE ALRIGHT WHEN IT REACHES ZERO"
  803. NAME$(50,1)="ROLLING RONNIE"
  804. NAME$(50,2)="VIRGIN"
  805. NAME$(50,3)="TYPE ~TRACTOR~ ON THE HIGH SCORE TABLE FOR INFINITE ENERGY AND THE ABILITY TO FLY."
  806. NAME$(51,1)="SHADOW DANCER"
  807. NAME$(51,2)="US GOLD"
  808. NAME$(51,3)="FOR INFINITE LIVES,PAUSE THE GAME AND TYPE ~GIVE ME INFINITES~ AND PRESS RETURN FOR INFINITE LIVES."
  809. NAME$(52,1)="SILKWORM"
  810. NAME$(52,2)="MASTERTRONIC"
  811. A$="DEPENDING ON WHICH VERSION YOU HAVE,YOU CAN HAVE INFINITE LIVES AND A LEVEL SKIP.FIRST HOLD DOWN HELP AND PRESS FIRE TO START.IF THIS DOSEN'T WORK,GO TO THE CONTROL SELECTION SCREEN AND TYPE ~SCRAP28~,THEN RETURN.NOW HOLD HELP AND PRESS"
  812. C$="FIRE TO START"
  813. NAME$(52,3)=A$+C$
  814. NAME$(53,1)="SIM CITY"
  815. NAME$(53,2)="INFOGRAMES"
  816. NAME$(53,3)="BEFORE BUILDING YOUR CITY,PUT THE GAME ON PAUSE.NOW PRESS CAPS LOCK AND TYPE ~FUND~ AS MANY TIMES AS YOU LIKE TO GET LOADS OF CASH.WHEN FINISHED TURN OFF PAUSE AND WAIT FOR AN EARTHQUAKE THEN BUILD YOUR CITY."
  817. NAME$(54,1)="ST DRAGON"
  818. NAME$(54,2)="STORM"
  819. NAME$(54,3)="TURN THE CAPS LOCK ON AND TYP ~DECAFFEINATED~ AND PRESS RETURN AND CAPS LOCK AGAIN FOR INVINCIBILITY.FOR INFINITE LIVES PESS CAPS LOCK AND TYPE ~WHATS WRONG NEVER SEEN A GUY WHO SLEPT WITH A FISH BEFORE~,RETURN AND CAPS LOCK."
  820. NAME$(55,1)="STARGLIDER 2"
  821. NAME$(55,2)="RAINBIRD"
  822. NAME$(55,3)="WHEN YOU START THE GAME PRESS F TO BRING YOUR SHIP TO A STANDSTILL,WHEN IT'S STATIONERY PRESS DEL TO PAUSE.TYPE ~WERE ON A MISSION FROM GOD~ AND PRESS 1.EVERY TIME YOU PRESS K YOUR SHIP WILL BE RE-ARMED."
  823. NAME$(56,1)="STORMBALL"
  824. NAME$(56,2)="MILLENNUIM"
  825. NAME$(56,3)="IF YOU'RE HAVING A HARD TIME WHILE GETTING YOUR BUM KICKED,TYPE ~LET ME WIN~ AND SEE WHAT HAPPENS."
  826. NAME$(57,1)="SUPERCARS"
  827. NAME$(57,2)="GBH"
  828. NAME$(57,3)="ENTER YOUR NAME AS ~RICH~ AND YOU'LL BE GIVEN ï¿½500,000. "
  829. NAME$(58,1)="SUPERCARS 2"
  830. NAME$(58,2)="GREMLIN"
  831. NAME$(58,3)="ENTER PLAYER ONE'S NAME AS ~WONDERLAND~ AND PLAYER TWO'S NAME AS ~THE SEAR~.YOU SHOULD NOW BE PLAYING WITH THE CHEAT ACTIVATED."
  832. NAME$(59,1)="SUPER HANG ON"
  833. NAME$(59,2)="THE HIT SQUAD"
  834. NAME$(59,3)="IF YOU ENTER ~750J~ ON THE HIGH SCORE TABLE YOUR BIKE WILL BE EQUIPPED WITH SOME GUNS."
  835. NAME$(60,1)="SWITCHBLADE 2"
  836. NAME$(60,2)="GREMLIN"
  837. NAME$(60,3)="TYPE ~LEVEL~ AND THEN THE NUMBER OF THE STAGE YOU WANT TO GO TO AND YOU'LL BE WHISKED AWAY.TO ENTER A LITTLE SUB GAME TUCKED AWAY IN SWITCHBLADE 2,TYPE ~CHROME~."
  838. NAME$(61,1)="SWIV"
  839. NAME$(61,2)="STORM"
  840. NAME$(61,3)="FOR INFINITE LIVES,PAUSE THE GAME AND TYPE ~NCC-1701~."
  841. NAME$(62,1)="TREASURE ISLAND DIZZY"
  842. NAME$(62,2)="CODEMASTERS"
  843. NAME$(62,3)="TRY TYPING ~EGGSONLEGS~ FOR IMMUNITY."
  844. NAME$(63,1)="TURRICAN "
  845. NAME$(63,2)="RAINBOW ARTS"
  846. NAME$(63,3)="TYPE ~BLUESMOBIL~ ON THE HIGH SCORE TABLE FOR 99 EXTRA LIVES."
  847. NAME$(64,1)="TURRICAN 2"
  848. NAME$(64,2)="RAINBOW ARTS"
  849. NAME$(64,3)="ON THE TITLE SCREEN TAP THE HELP KEY AND THAT SHOULD BRING UP THE MUSIC MENU,NOW PRESS 1,1,4,2,ESC,ESC,ESC.YOU WILL START THE GAME WITH INFINITE LIVES AND WALL WEAPONS."
  850. NAME$(65,1)="VAXINE"
  851. NAME$(65,2)="US GOLD"
  852. NAME$(65,3)="WHILE PLAYING THE GAME TYPE ~WILDEBEESTE~.F1 WILL LET YOU SKIP A LEVEL.F3 WILL SKIP YOU TEN LEVELS AND F2 AND F4 WILL GO BACK ONE AND TEN LEVELS."
  853. NAME$(66,1)="VIRUS"
  854. NAME$(66,2)="FIREBIRD"
  855. NAME$(66,3)="PAUSE AND UNPAUSE THE GAME WHILE HOLDING ENTER.C-TO TOGGLE SPECIAL EFFECTS.L-FOR A FREE MISSILE.F-FOR EXTRA FUEL.D-TO PLAY THE DEMO.N-TO ACTIVATE THE CHEAT MODE."
  856. NAME$(67,1)="Z OUT"
  857. NAME$(67,2)="RAINBOW ARTS"
  858. NAME$(67,3)="WHILE PLAYING HOLD DOWN THE J KEY AND PRESS 1-8 TO GO TO THAT LEVEL.OTHERWISE HOLD DOWN J AND PRESS K FOR INFINITE LIVES-TO DEACTIVATE THIS,PRESS J AND K AGAIN."
  859. NAME$(68,1)="ASSASSIN"
  860. NAME$(68,2)="TEAM 17"
  861. NAME$(68,3)="ENTER YOUR NAME ON THE HIGH SCORE TABLE AS ~MIDAN~.YOU WILL BE TOLD YOU ARE A LITTLE FAT GIT.WHEN YOU NEXT PLAY WHATEVER LEVEL YOU REACH AND DIE ON YOU WILL BE ABLE TO RESTART ON THAT LEVEL."
  862. NAME$(69,1)="ROAD RASH"
  863. NAME$(69,2)="ELECTRONIC ARTS"
  864. NAME$(69,3)="ENTER THE FOLLOWING INTO THE CODE SCREEN-21132 011H7   VUKBE 27QAG  -YOU'LL THEN BE ON LEVEL 2 WITH THE DIABLO BIKE AND ï¿½41 MILLON."
  865. NAME$(70,1)="LETHAL WEAPON "
  866. NAME$(70,2)="OCEAN"
  867. A$="LEVEL CODES-1.KSIIFL  2.ECYOIR  3.FLRSKB  4.UEOASF  .TIP-IF YOU JUMP ON TO THE NOTICE BOARD NEXT TO THE MISSION ONE ENTRANCE AND PUSH UP YOU WILL BE ABLE TO COLLECT FOUR EXTRA LIVES.CHEATS-HOLD EACH OF THE FOLLOWING DURING PLAY :- ALT-Y-I TURNS "
  868. C$="OFF SPRITE COLLISION , ALT-Y-K INCREASE AMMO , ALT-Y-L INCREASE LIVES , ALT-Y-M REMOVES SPRITES AND PLATFORMS , ALT-Y-N CORRECTS SPRITES AND PLATFORMS , ALT-Y-Q GAME COMPLETION CREDITS , ALT-Y AND 1-10 TO ACCESS THE VARIOUS LEVELS."
  869. NAME$(70,3)=A$+C$
  870. NAME$(71,1)="ATOM SMASHER"
  871. NAME$(71,2)="AMIGA POWER DISK 22"
  872. NAME$(71,3)="TYPE ~CATHERINE ZETA JONES~ ON THE TITLE SCREEN,WHEREAFTER YOU CAN PRESS ~I~,~L~ OR ~S~ DURING THE GAME FOR INVULNERVABILITY,INFINITE LIVES AND LEVEL SKIPPING.TYPE ~ZANDALEE~ TO ACCESS THE LEVEL EDITOR."
  873. NAME$(72,1)="LOTUS 3"
  874. NAME$(72,2)="GREMLIN"
  875. NAME$(72,3)="TYPE ~GAMEMAST~ INTO THE CODE BOX AND YOU'LL BE ABLE TO PLAY THE SPECIAL COURSE DESIGNED FOR THE PROGRAMME."
  876. NAME$(73,1)="PREMIER MANAGER"
  877. NAME$(73,2)="GREMLIN"
  878. NAME$(73,3)="TYPE THESE IN ON THE PHONE: 753423-SETS HA TO 99 , 250967-SETS TK TO 99 , 000123-SETS PS TO 99 , 220769-SET SH TO 99 , 781560-SETS EVERTHING TO 99 AND GIVES YOU ï¿½20 MILLION."
  879. NAME$(74,1)="BC KID"
  880. NAME$(74,2)="UBI SOFT"
  881. NAME$(74,3)="TIP:JUMP UP AND TURN ON AUTOFIRE ON YOUR JOYSTICK.YOU WILL GLIDE THOUGH THE AIR WHILE SPINNING MADLY AND ALSO DODGING ALL THOSE NASTY'S."
  882. NAME$(75,1)="NICKY BOOM"
  883. NAME$(75,2)="MICROIDS"
  884. NAME$(75,3)="LEVEL CODES:-1.MEDIT 2.KRATTY 3.MIRTES 4.ARRAX 5.JANIR 6.TRINOS 7.SIXAN."
  885. NAME$(76,1)="CRYSTAL KINGDOM DIZZY"
  886. NAME$(76,2)="CODEMASTERS"
  887. NAME$(76,3)="TWO GAME GENIE CODES:  PART TWO - BLACKHEARTS PIRATE SHIP: G5J 73Q 8HK       PART FOUR - THE ICE PALACE: 83J 5G6 2KF . "
  888. NAME$(77,1)="JOHN MADDENS AMERICAN FOOTBALL"
  889. NAME$(77,2)="ELECTRONIC ARTS"
  890. NAME$(77,3)="IF YOU GO TO THE PASSWORD SCREEN AND TYPE IN THE FIRST THREE NUMBERS AS 665,AND THEN ANY OTHER NUMBERS AFTER THAT,YOU WILL IN THE FINAL GAME.THE NUMBER YOU TYPE AFTER 665 DETERMINES THE TEAM YOU PLAY. "
  891. NAME$(78,1)="ACHER MACLEANS POOL"
  892. NAME$(78,2)="VIRGIN"
  893. NAME$(78,3)="IF YOU ARE ABOUT TO LOSE WHILST PLAYING 9 BALL,THEN PRESS THE ESC KEY JUST AS THE COMPUTER LINES UP HIS SHOT FOR THE LAST BALL.THIS WILL CAUSE THE CUE BALL TO FOLLOW THE 9 BALL INTO THE POCKET,LEAVING YOU TO POT IT AND WIN."
  894. NAME$(79,1)="LEGENDS OF VALOUR "
  895. NAME$(79,2)="US GOLD"
  896. NAME$(79,3)="IN THE CASINO,THEY USE MARKED CARDS ON WEDNESDAY NIGHT.LOOK FOR THE CARD WITH THE LIGHT RED/PINK MARK IN THE CHAIN AT THE BOTTOM."
  897. NAME$(80,1)="NICK FALDOS GOLF"
  898. NAME$(80,2)="GRANDSLAM"
  899. NAME$(80,3)="TIPS ON THE CONTROL SYSTEM:DON'T CONCENTRATE TO HARD ON THE WRISTSNAP - CONCENTRATE ON THE DOUBLE CLICK(WRIST SNAP ONLY ADDS 10 PERCENT MORE POWER) GET USED TO THE LESS DIFFICULT CLUBS FIRST-eg. 3 WOOD WITH ITS LARGER STRIKE BAR. "
  900. NAME$(81,1)="TROLLS"
  901. NAME$(81,2)="FLAIR"
  902. NAME$(81,3)="ENTER THE SODAPOP LEVEL,BUT BEFORE HITTING FIRE,PUSH UP ON THE JOYSTICK AND HOLD DOWN K WHILE PRESSING THE FIRE BUTTON TO BEGIN THE LEVEL.RELEASE THE KEY ONLY WHEN THE LEVEL HAS STARTED.NOW PRESS ESCAPE TO COMPLETE THIS LEVEL."
  903. NAME$(82,1)="STREET FIGHTER 2"
  904. NAME$(82,2)="US GOLD"
  905. A$="SELECT ONE PLAYER MODE,THEN WAIT FOR THE CHARACTER SELECTION SCREEN.PLACE THE CURSOR ON BLANKA,BUT DON'T PRESS THE FIRE BUTTON.NOW TYPE ~PATIENCE~,AND THE SCREEN SHOULD FLASH.IF YOU NOW START THE GAME USING ANY CHARACTER YOU CAN PRESS "
  906. C$="F10 TO RESTORE YOUR ENERGY.TO PLAY A 2 PLAYER GAME WITH THE SAME CHARACTERS START THE GAME.THEN PAUSE IT AND TYPE ~7KIDS~ THE SCREEN SHOULD FLASH YELLOW.NEXT TIME YOU CHOOSE THE CHARACTERS YOU CAN BOTH BE THE SAME ONE."
  907. NAME$(82,3)=A$+C$
  908. NAME$(83,1)="PREMIERE"
  909. NAME$(83,2)="CORE DESIGN"
  910. NAME$(83,3)="TYPE ~SPARK PLUGS~(INCLUDING SPACES) ON THE TITLE SCREEN.PRESSING THE FUNCTION KEYS WILL NOW WARP YOU TO ANOTHER LEVEL AND EQUIP YOU WITH AN INFINITE NUMBER OF LIVES."
  911. NAME$(84,1)="3D POOL"
  912. NAME$(84,2)="KIXX"
  913. NAME$(84,3)="HERES A FEW SETTINGS FOR THE TRICKSHOTS: 10-0948 091 63 20 , 13-0006 043 39 10 , 19-0617 100 57 06."
  914. NAME$(85,1)="BEAST BUSTERS"
  915. NAME$(85,2)="ACTIVISION"
  916. NAME$(85,3)="WHEN YOU PAUSE THE GAME YOU CAN STILL MOVE YOUR CROSSHAIRS AND FIRE YOUR GUN WHICH CAN BE VERY USEFUL."
  917. NAME$(86,1)="DRAKKHEN"
  918. NAME$(86,2)="INFOGRAMMES"
  919. NAME$(86,3)="ENTER THE CHARACTER GENERATION SECTION AND ENTER A CHARACTERS NAME AS ~31415927~.ALL CHARACTER STATISTICS WILL BE SLIGHTLY HIGHER."
  920. NAME$(87,1)="LEANDER"
  921. NAME$(87,2)="PSYGONOSIS"
  922. NAME$(87,3)="CODES:- WORLD 3=ZXSP  WORLD 4=LVFT."
  923. NAME$(88,1)="JUDGE DREDD"
  924. NAME$(88,2)="VIRGIN"
  925. NAME$(88,3)="ON THE COMPUTER SCREEN,LOG ON AS ~DREAD~ AND TYPE ~BRUKEN PLAYING HERO QUEST~.YOU CAN NOW SKIP LEVELS BY PRESSING HELP."
  926. NAME$(89,1)="HELTER SKELTER"
  927. NAME$(89,2)="AUDIOGENIC"
  928. NAME$(89,3)="LEVEL CODES:-11.SPIN  21.FLIP  32.BALL  41.GOAL  51.LEFT  61.TWIN  71.PLAY."
  929. NAME$(90,1)="MARBLE MADNESS"
  930. NAME$(90,2)="ARIOLASOFT"
  931. NAME$(90,3)="AFTER LEVEL ONE,STAY WHERE YOU ARE AND WAIT,AND SEE WHAT HAPPENS."
  932. NAME$(91,1)="MANIC MINER"
  933. NAME$(91,2)="SOFTWARE PROJECTS"
  934. NAME$(91,3)="PAUSE THE GAME AND PRESS * FOR NINE EXTRA LIVES."
  935. NAME$(92,1)="LEONARDO"
  936. NAME$(92,2)="STARBYTE"
  937. NAME$(92,3)="LEVEL CODES:- 10.EMMENTALER  20.ALPHORN  30.MATTERHORN AND FOR INFINITE LIVES TRY TYPING ~FREIBIERC~"
  938. NAME$(93,1)="OUTRUN"
  939. NAME$(93,2)="KIXX"
  940. NAME$(93,3)="WHILE PLAYING,HOLD THE KEYS ~STARION~.NOW PRESS: B=EXTEND PLAY Q=GET INFO ABOUT THE GAME T=EXTRA TEN SECONDS D=SAVE SCREEN AS A DEGAS PICTURE S=MOVE THROUGH DIFFERENT SCENES."
  941. NAME$(94,1)="NEBULUS 2"
  942. NAME$(94,2)="21ST CENTURY ENTERTAINMENT"
  943. NAME$(94,3)="FOR WEAPONS<ENTER THE FOLLOWING CODES-~BLUEHOUSE~ FOR THE DOWN TOWERS AND ~HOUSEBLUES~ FOR THE UP TOWERS.L5 THE FUN ~ICEHOUSE~ - L9 THE ALIEN  ~LANDANDLOVE~ - L13 THE WINTER  ~GREENTREES~."
  944. NAME$(95,1)="MICKEY MOUSE "
  945. NAME$(95,2)="GREMLIN"
  946. NAME$(95,3)="WHILE PLAYING ENTER ~61315688~.THE BORDER SHOULD FLASH.HIT THE FOLLOWING KEYS:- F2(OPEN DOOR TO NEXT SUBGAME) F3(START FIGHT WITH WITCH) F4(REFILL WATER PISTOL)."
  947. NAME$(96,1)="ROBOCOP"
  948. NAME$(96,2)="THE HIT SQUAD"
  949. NAME$(96,3)="FOR INFINITE POWER,PAUSE THE GAME AND TYPE ~BEST KEPT SECRET~."
  950. NAME$(97,1)="PARANOID 90"
  951. NAME$(97,2)="HEWSON"
  952. NAME$(97,3)="ON THE TITLE SCREEN PRESS F3 FOR THE CHEAT MODE."
  953. NAME$(98,1)="PLATOON"
  954. NAME$(98,2)="OCEAN"
  955. A$="ON THE TITLE SCREEN ENTER ~HAMBURGER~.PRESS F4 TO TAKE YOU TO THE VILLAGE.MOVE TO THE FAR LEFT HUT,TAKE THE TORCH FROM THE ROUND POT AND GO TWO HUTS TO THE LEFT.SHOOT THE GUARD AND GET THE MAP,THEN EXIT THROUGH THE TRAPDOOR IN THE HUT"
  956. C$=" ON THE RIGHT TO LEVEL TWO."
  957. NAME$(98,3)=A$+C$
  958. NAME$(99,1)="SHADOW OF THE BEAST"
  959. NAME$(99,2)="PSYGNOSIS"
  960. NAME$(99,3)="FOR INFINITE LIVES DEPRESS BOTH MOUSE BUTTONS AND JOYSTICK FIRE WHEN YOU SEE THE SHADOW OF THE BEAST LOGO DURING LOADING.KEEP THEM HELD UNTIL YOU'RE TOLD TO INSERT DISK 2."
  961. NAME$(100,1)="STREET FIGHTER"
  962. NAME$(100,2)="KIXX"
  963. NAME$(100,3)="TO ACCESS THE CHEAT MODE,ON THE TITLE SCREEN TYPE ~STREET CHEAT~ THEN PRESS HELP."
  964. NAME$(101,1)="SLY SPY"
  965. NAME$(101,2)="OCEAN"
  966. NAME$(101,3)="ENTER THE LEVEL CODE AS ~007~. YOU THEN CAN TYPE ~SHAKEN NOT STIRRED~ FOR INFINITE CREDITS."
  967. NAME$(102,1)="SHADOW OF THE BEAST 2"
  968. NAME$(102,2)="PSYGNOSIS"
  969. NAME$(102,3)="WHEN THE GAME STARTS,GO RIGHT TO THE FIRST MAN WITH THE SPEAR,HIT A(ASK),AND TYPE ~SUNSTOVE~."
  970. NAME$(103,1)="THE EMPIRE STRIKES BACK"
  971. NAME$(103,2)="THE HIT SQUAD"
  972. NAME$(103,3)="ON THE TITLE SCREEN,HOLD DOWN HELP AND TYPE ~XIFARGROTKEV~.PRESSING C,D OR L BRINGS C3PO,DART VADER OR LUKE.KEYS 1-10(NOT ON THE KEYPAD)GIVE SPEECH SYNTH."
  973. NAME$(104,1)="THE UNTOUCHABLES"
  974. NAME$(104,2)="THE HIT SQUAD"
  975. NAME$(104,3)="TO SKIP LEVELS,TYPE ~THESOUTHHAMPTONGAZETTE~ WHILE PAUSED.UNPAUSE THE GAME AND HIT F10 TO ACCESS THE NEXT STAGE."
  976. NAME$(105,1)="TEARAWAY THOMAS"
  977. NAME$(105,2)="DMI"
  978. NAME$(105,3)="FOR INFINITE TIME,TYPE ~TIMEFLIESLIKEABANANA~ AT ANY POINT DURING THE GAME."
  979. NAME$(106,1)="THUNDERBIRDS"
  980. NAME$(106,2)="GRANDSLAM"
  981. A$="THESE ARE THE ITEMS YOU NEED ON THE VARIOUS LEVELS:-  1.ALAN(LAMP AND OIL CAN) BRAINS(TORCH)  2.GORDON(AQUALUNG AND AMERICAN EXPRESS) ALAN(AQYALUNG & RADIATION PILLS)  3.LADY PENELOPE(SLEEP SPRAY) PARKER(MOUSE & STETHOSCOPE) 4.VIRGIL"
  982. C$="(GUN & SHADES)  SCOTT(SHADES AND SUPERGLUE).LEVEL CODES 2.RECOVERY  3.ALOYSIUS  4.ANDERSON."
  983. NAME$(106,3)=A$+C$
  984. NAME$(107,1)="TEENAGE MUTANT HERO TURTLES"
  985. NAME$(107,2)="IMAGEWORKS"
  986. NAME$(107,3)="FOR INFINITE ENERGY LOAD UP THE GAME AND WHWN ASKED FOR A PASSWORD.TYPE ~8859~(FIRST PASSWORD)  ~1506~(SECOND PASSWORD)."
  987. NAME$(108,1)="TURBO OUT RUN"
  988. NAME$(108,2)="KIXX"
  989. NAME$(108,3)="AFTER THE COUNTDOWN TYPE ~WEARPEEPEL~.YOU CAN NOW USE THE FOLLOWING CHEATS- B=RESTART GAME,D=REFRESH TURBO BOOSTS,F=SEE END SEQUENCE,G=REMOVE ONE CREDIT,N=GO TO NEXT STAGE,T=INCREASES TIME BY TEN SECONDS."
  990. NAME$(109,1)="THUNDER JAWS"
  991. NAME$(109,2)="DOMARK"
  992. NAME$(109,3)="DURING THE GAME PRESS THE LEFT MOUSE BUTTON AND INFINITE LIVES ARE YOURS."
  993. NAME$(110,1)="XENON"
  994. NAME$(110,2)="TRONIX"
  995. NAME$(110,3)="ON LEVEL 2 KILL THE FIRST GUARDIAN AND CRASH INTO THE NEAREST WALL.THERE SHOULD NOW BE NO BADDIES TILL THE END OF THE LEVEL. "
  996. NAME$(111,1)="MOONSTONE"
  997. NAME$(111,2)="MINDSCAPE"
  998. NAME$(111,3)="ENTER STONEHENGE THEN CLICK ON STRENGH FOR AN EXTRA LIFE."
  999. NAME$(112,1)="SHINOBI"
  1000. NAME$(112,2)="TRONIX"
  1001. NAME$(112,3)="ON LEVEL 2-4 WHEN YOU GET TO THE HELICOPTER,PAUSE AND TYPE~HELICOPTERTOOTOUGHFORME~.WHEN YOU DIE YOU WILL BE TRANSPORTED TO THE NEXT LEVEL.(USE F10 TO PAUSE THE GAME) *THIS CHEAT MAY NOT WORK ON THE A600*"
  1002. NAME$(113,1)="PINBALL FANTASIES"
  1003. NAME$(113,2)="DIGITAL ILLUSIONS"
  1004. A$="TYPE THE FOLLOWING BEFORE YOU ENTER THE NUMBER OF PLAYERS:-~EXTRA BALLS~ GIVES YOU 5 EXTRA BALLS.~DIGITAL ILLUSIONS~ STOPS THE BALL FROM GOING OUT OF PLAY.~HIGHLANDER~ MAKES THE BALLS HEAVIER.~VACUUM CLEANER~ CLEARS THE HIGH SCORES."
  1005. C$="~EARTHQUAKE~ DISABLES THE TILT FUNCTION.~FAIR PLAY~ SETS CHEAT OPTION TO DEFAULT."
  1006. NAME$(113,3)=A$+C$
  1007. NAME$(114,1)="HUMANS"
  1008. NAME$(114,2)="MIRAGE"
  1009. NAME$(114,3)="LEVEL CODES:- 40.BANANNA MOON 45.VISION 50.RANGERS 55.CONSOLIDATED 60.PROMISED LAND 65.A34732473 70.NIN 75.LORDS OF CHAOS 80.BYE BYE BYE BYE."
  1010. NAME$(115,1)="ALIEN BREED 92"
  1011. NAME$(115,2)="TEAM 17"
  1012. NAME$(115,3)="LEVEL CODES:-2.XXDFA 4.RTHAA 6.LAEEA 8.UYTTA 10.PPEAB.CHEATS:-~WON THE POOLS~ ~BANK RAID~ ~KEY TO THE CITY~ ~MR YALE OR WHAT~ ~JUST CALL ME MOGGY~ ~WHY NOT CALL ME MOGGY AS WELL~ ~STEVIE WONDER~ ~ST USERS~ ~ELVIS MODE~ ~PC EMULATOR~"
  1013. NAME$(116,1)="CREATURES"
  1014. NAME$(116,2)="THALAMUS"
  1015. NAME$(116,3)="TO ACCES THE CHEAT MODE PAUSE THE GAME AND TYPE ~A FINE KETTLE OF FISH~ INCLUDING THE SPACES.THE FUNCTION KEYS WILL NOW ACCESS THE DIFFERANT LEVELS.F1-F9=VARIOUS LEVELS AND TORTURE CHAMBERS.F10=SKIP TO NEXT LEVEL.C=CHEAT MODE OFF."
  1016. NAME$(117,1)="POPULOUS"
  1017. NAME$(117,2)="ELECTRONIC ARTS"
  1018. A$="START A CONQUEST GAME AS USUAL.NEXT GO TO THE GAME SET UP SCREEN,FROM THERE SELECT CUSTOM GAME AND GO TO GAME OPTIONS TO CHANGE ANY FEATURES YOU WANT.WHEN DONE CLICK ON EVIL,THEN TWO PLAYERS AND FINALLY CANCEL.IF YOU FOLLOWED THESE "
  1019. C$="INSTRUCTIONS ACCURATELY THE ENEMY WILL BE UNABLE TO ALTER THE LANDSCAPE MAKING HIM VIRTUALLY USELESS."
  1020. NAME$(117,3)=A$+C$
  1021. NAME$(118,1)="SUPERFROG"
  1022. NAME$(118,2)="TEAM 17"
  1023. NAME$(118,3)="LEVEL CODES:-WORLD 6/A.387211  6/B.981122  6/C.017632  6/D.398112   PROJECT F:837122"
  1024. NAME$(119,1)="LEMMINGS 2"
  1025. NAME$(119,2)="PSYGNOSIS"
  1026. A$="FIRST TURN OFF THE MUSIC.THEN GO BACK TO THE MENU SCREEN AND LEFT CLICK IN EVERY CORNER OF THE SCREEN,STARTING IN THE TOP RIGHT.IF ITS DONE RIGHT YOU'LL HEAR A LEM SAY 'LETS GO'...OR...PLACE THE POINTER IN THE BOTTOM RIGHT CORNER OF"
  1027. C$=" THE MENU SCREEN AND CLICK ONCE WITH LEFT THEN ONCE WITH THE RIGHT BUTTON.IF YOU HEAR THE SAME MESSAGE THEN ITS WORKED."
  1028. NAME$(119,3)=A$+C$
  1029. NAME$(120,1)="BODY BLOWS"
  1030. NAME$(120,2)="TEAM 17"
  1031. NAME$(120,3)="TO ACCESS THE CHEAT MENU SIMPLY HOLD JOYSTICK 1 DOWN FOR 5 SECONDS,AND THE SECRET MENU WILL APPEAR."
  1032. NAME$(121,1)="HISTORY LINE"
  1033. NAME$(121,2)="BLUE BYTE"
  1034. A$="WHEN YOU ARE OUTNUMBERED,AND ENERGY IS SHORT,PLACE AS MANY RUN-DOWN UNITS AS YOU CAN INTO THE NEAREST DEPOT/FACTORY.NOW ALLOW ONE OF YOUR ENEMYS INFANTRY/CAVALVY UNITS TO GET THROUGH YOUR LINES.THEY WILL HEAD STRIGHT FOR YOUR BUILDING AND TAKE  "
  1035. C$="IT.DURING THEIR NEXT ATTACK PHASE,IT WILL REPLENISH ALL OF YOUR RUN-DOWN UNITS.HAVE ONE OF YOUR INFANTRY UNITS CLOSE SO YOU CAN TAKE IT BACK WHILE THE ENEMY IS REPLENISHING.YOUR UNITS WILL BE REFRESHED"
  1036. NAME$(121,3)=A$+C$
  1037. NAME$(122,1)="CAESAR"
  1038. NAME$(122,2)="IMPRESSIONS"
  1039. NAME$(122,3)="ON THE CITY MAP LEVEL,DONT BUILD WALLS-BUILD WELLS INSTEAD.THIS WILL SAVE YOU MONEY.IT ALSO HAS THE ADDED EFFECT OF KEEPING YOUR ENEMY OUT.THEY CAN GET THROUGH WALLS BUT THEY CAN'T GET THROUGH WELLS."
  1040. 'NAME$(123,1)="HUNTER" 
  1041. 'NAME$(123,2)="ACTIVISION" 
  1042. 'A$="TO GET TO THE BUNKER WHICH HOLDS THE GENERAL,DESTROY THE PRISION WITH SOME FORM OF POWERFUL WEAPON.THE ENTRANCE IS HIDDEN UNDER THE PRISON.THERE WILL BE A MAN THERE WHO CLAIMS HE IS NOT THE GENERAL.DON'T BELIEVE HIM,KILL HIM AND TAKE"
  1043. 'C$=" HIS HEAD BACK TO YOUR HQ QUICKLY." 
  1044. 'NAME$(123,3)=A$+C$
  1045. Return